/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / browse-url.elc.z / browse-url.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 6e 75 |piled by| kwzh@nu|
|00000020| 74 72 69 6d 61 74 2e 67 | 6e 75 2e 61 69 2e 6d 69 |trimat.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 32 31 20 31 35 3a 35 | 30 3a 31 32 20 31 39 39 | 21 15:5|0:12 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 62 72 6f 77 73 65 2d 75 |.0/lisp/|browse-u|
|00000080| 72 6c 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |rl.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 31 2e 39 34 |version |19.31.94|
|000000a0| 2e 31 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.1..;;; |bytecomp|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000c0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000d0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000e0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000f0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000100| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000110| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000120| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000130| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000140| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000160| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000170| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000180| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000190| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).|    (err|
|000001a0| 6f 72 20 22 60 62 72 6f | 77 73 65 2d 75 72 6c 2e |or "`bro|wse-url.|
|000001b0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 32 39 | for Ema|cs 19.29|
|000001d0| 20 6f 72 20 6c 61 74 65 | 72 22 29 29 0a 0a 0a 23 | or late|r"))...#|
|000001e0| 40 34 37 20 41 20 72 65 | 67 75 6c 61 72 20 65 78 |@47 A re|gular ex|
|000001f0| 70 72 65 73 73 69 6f 6e | 20 70 72 6f 62 61 62 6c |pression| probabl|
|00000200| 79 20 6d 61 74 63 68 69 | 6e 67 20 61 20 55 52 4c |y matchi|ng a URL|
|00000210| 2e 1f 0a 28 64 65 66 76 | 61 72 20 62 72 6f 77 73 |...(defv|ar brows|
|00000220| 65 2d 75 72 6c 2d 72 65 | 67 65 78 70 20 22 5c 5c |e-url-re|gexp "\\|
|00000230| 28 68 74 74 70 73 3f 3a | 2f 2f 5c 5c 7c 66 74 70 |(https?:|//\\|ftp|
|00000240| 3a 2f 2f 5c 5c 7c 67 6f | 70 68 65 72 3a 2f 2f 5c |://\\|go|pher://\|
|00000250| 5c 7c 74 65 6c 6e 65 74 | 3a 2f 2f 5c 5c 7c 77 61 |\|telnet|://\\|wa|
|00000260| 69 73 3a 2f 2f 5c 5c 7c | 66 69 6c 65 3a 2f 5c 5c |is://\\||file:/\\|
|00000270| 7c 73 3f 6e 65 77 73 3a | 5c 5c 7c 6d 61 69 6c 74 ||s?news:|\\|mailt|
|00000280| 6f 3a 5c 5c 29 5b 5e 5d | 09 5c 6e 20 5c 22 27 28 |o:\\)[^]|.\n \"'(|
|00000290| 29 3c 3e 5b 5e 60 7b 7d | 5d 2a 5b 5e 5d 09 5c 6e |)<>[^`{}|]*[^].\n|
|000002a0| 20 5c 22 27 28 29 3c 3e | 5b 5e 60 7b 7d 2e 2c 3b | \"'()<>|[^`{}.,;|
|000002b0| 5d 2b 22 20 28 23 24 20 | 2e 20 34 38 34 29 29 0a |]+" (#$ |. 484)).|
|000002c0| 23 40 32 30 37 20 2a 46 | 75 6e 63 74 69 6f 6e 20 |#@207 *F|unction |
|000002d0| 74 6f 20 64 69 73 70 6c | 61 79 20 74 68 65 20 63 |to displ|ay the c|
|000002e0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 69 6e |urrent b|uffer in|
|000002f0| 20 61 20 57 57 57 20 62 | 72 6f 77 73 65 72 2e 0a | a WWW b|rowser..|
|00000300| 54 68 69 73 20 69 73 20 | 75 73 65 64 20 62 79 20 |This is |used by |
|00000310| 74 68 65 20 60 62 72 6f | 77 73 65 2d 75 72 6c 2d |the `bro|wse-url-|
|00000320| 61 74 2d 70 6f 69 6e 74 | 27 2c 20 60 62 72 6f 77 |at-point|', `brow|
|00000330| 73 65 2d 75 72 6c 2d 61 | 74 2d 6d 6f 75 73 65 27 |se-url-a|t-mouse'|
|00000340| 2c 20 61 6e 64 0a 60 62 | 72 6f 77 73 65 2d 75 72 |, and.`b|rowse-ur|
|00000350| 6c 2d 6f 66 2d 66 69 6c | 65 27 20 63 6f 6d 6d 61 |l-of-fil|e' comma|
|00000360| 6e 64 73 2e 0a 54 68 65 | 20 66 75 6e 63 74 69 6f |nds..The| functio|
|00000370| 6e 20 73 68 6f 75 6c 64 | 20 74 61 6b 65 20 6f 6e |n should| take on|
|00000380| 65 20 61 72 67 75 6d 65 | 6e 74 2c 20 61 6e 20 55 |e argume|nt, an U|
|00000390| 52 4c 2e 1f 0a 28 64 65 | 66 76 61 72 20 62 72 6f |RL...(de|fvar bro|
|000003a0| 77 73 65 2d 75 72 6c 2d | 62 72 6f 77 73 65 72 2d |wse-url-|browser-|
|000003b0| 66 75 6e 63 74 69 6f 6e | 20 28 71 75 6f 74 65 20 |function| (quote |
|000003c0| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 63 68 6f 6f 73 |browse-u|rl-choos|
|000003d0| 65 2d 62 72 6f 77 73 65 | 72 29 20 28 23 24 20 2e |e-browse|r) (#$ .|
|000003e0| 20 2d 37 31 30 29 29 0a | 23 40 33 34 20 2a 54 68 | -710)).|#@34 *Th|
|000003f0| 65 20 6e 61 6d 65 20 66 | 6f 72 20 69 6e 76 6f 6b |e name f|or invok|
|00000400| 69 6e 67 20 4e 65 74 73 | 63 61 70 65 2e 1f 0a 28 |ing Nets|cape...(|
|00000410| 64 65 66 76 61 72 20 62 | 72 6f 77 73 65 2d 75 72 |defvar b|rowse-ur|
|00000420| 6c 2d 6e 65 74 73 63 61 | 70 65 2d 70 72 6f 67 72 |l-netsca|pe-progr|
|00000430| 61 6d 20 22 6e 65 74 73 | 63 61 70 65 22 20 28 23 |am "nets|cape" (#|
|00000440| 24 20 2e 20 2d 31 30 30 | 35 29 29 0a 23 40 35 34 |$ . -100|5)).#@54|
|00000450| 20 2a 41 20 6c 69 73 74 | 20 6f 66 20 73 74 72 69 | *A list| of stri|
|00000460| 6e 67 73 20 74 6f 20 70 | 61 73 73 20 74 6f 20 4e |ngs to p|ass to N|
|00000470| 65 74 73 63 61 70 65 20 | 61 73 20 61 72 67 75 6d |etscape |as argum|
|00000480| 65 6e 74 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 62 |ents...(|defvar b|
|00000490| 72 6f 77 73 65 2d 75 72 | 6c 2d 6e 65 74 73 63 61 |rowse-ur|l-netsca|
|000004a0| 70 65 2d 61 72 67 75 6d | 65 6e 74 73 20 6e 69 6c |pe-argum|ents nil|
|000004b0| 20 28 23 24 20 2e 20 2d | 31 31 30 35 29 29 0a 23 | (#$ . -|1105)).#|
|000004c0| 40 32 33 39 20 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |@239 *If| non-nil|
|000004d0| 2c 20 61 6c 77 61 79 73 | 20 6f 70 65 6e 20 61 20 |, always| open a |
|000004e0| 6e 65 77 20 62 72 6f 77 | 73 65 72 20 77 69 6e 64 |new brow|ser wind|
|000004f0| 6f 77 2e 0a 50 61 73 73 | 69 6e 67 20 61 6e 20 69 |ow..Pass|ing an i|
|00000500| 6e 74 65 72 61 63 74 69 | 76 65 20 61 72 67 75 6d |nteracti|ve argum|
|00000510| 65 6e 74 20 74 6f 20 5c | 5b 62 72 6f 77 73 65 2d |ent to \|[browse-|
|00000520| 75 72 6c 2d 6e 65 74 73 | 63 61 70 65 5d 20 6f 72 |url-nets|cape] or|
|00000530| 0a 5c 5b 62 72 6f 77 73 | 65 2d 75 72 6c 2d 63 63 |.\[brows|e-url-cc|
|00000540| 69 5d 20 72 65 76 65 72 | 73 65 73 20 74 68 65 20 |i] rever|ses the |
|00000550| 65 66 66 65 63 74 20 6f | 66 20 74 68 69 73 20 76 |effect o|f this v|
|00000560| 61 72 69 61 62 6c 65 2e | 20 20 52 65 71 75 69 72 |ariable.|  Requir|
|00000570| 65 73 0a 4e 65 74 73 63 | 61 70 65 20 76 65 72 73 |es.Netsc|ape vers|
|00000580| 69 6f 6e 20 31 2e 31 4e | 20 6f 72 20 6c 61 74 65 |ion 1.1N| or late|
|00000590| 72 20 6f 72 20 58 4d 6f | 73 61 69 63 20 76 65 72 |r or XMo|saic ver|
|000005a0| 73 69 6f 6e 20 32 2e 35 | 20 6f 72 20 6c 61 74 65 |sion 2.5| or late|
|000005b0| 72 2e 1f 0a 28 64 65 66 | 76 61 72 20 62 72 6f 77 |r...(def|var brow|
|000005c0| 73 65 2d 75 72 6c 2d 6e | 65 77 2d 77 69 6e 64 6f |se-url-n|ew-windo|
|000005d0| 77 2d 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 31 |w-p nil |(#$ . -1|
|000005e0| 32 32 31 29 29 0a 23 40 | 33 32 20 2a 54 68 65 20 |221)).#@|32 *The |
|000005f0| 6e 61 6d 65 20 66 6f 72 | 20 69 6e 76 6f 6b 69 6e |name for| invokin|
|00000600| 67 20 4d 6f 73 61 69 63 | 2e 1f 0a 28 64 65 66 76 |g Mosaic|...(defv|
|00000610| 61 72 20 62 72 6f 77 73 | 65 2d 75 72 6c 2d 6d 6f |ar brows|e-url-mo|
|00000620| 73 61 69 63 2d 70 72 6f | 67 72 61 6d 20 22 78 6d |saic-pro|gram "xm|
|00000630| 6f 73 61 69 63 22 20 28 | 23 24 20 2e 20 2d 31 35 |osaic" (|#$ . -15|
|00000640| 31 35 29 29 0a 23 40 35 | 32 20 2a 41 20 6c 69 73 |15)).#@5|2 *A lis|
|00000650| 74 20 6f 66 20 73 74 72 | 69 6e 67 73 20 74 6f 20 |t of str|ings to |
|00000660| 70 61 73 73 20 74 6f 20 | 4d 6f 73 61 69 63 20 61 |pass to |Mosaic a|
|00000670| 73 20 61 72 67 75 6d 65 | 6e 74 73 2e 1f 0a 28 64 |s argume|nts...(d|
|00000680| 65 66 76 61 72 20 62 72 | 6f 77 73 65 2d 75 72 6c |efvar br|owse-url|
|00000690| 2d 6d 6f 73 61 69 63 2d | 61 72 67 75 6d 65 6e 74 |-mosaic-|argument|
|000006a0| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 31 36 31 |s nil (#|$ . -161|
|000006b0| 30 29 29 0a 23 40 32 32 | 30 20 41 6e 20 61 6c 69 |0)).#@22|0 An ali|
|000006c0| 73 74 20 6f 66 20 28 52 | 45 47 45 58 50 20 2e 20 |st of (R|EGEXP . |
|000006d0| 53 54 52 49 4e 47 29 20 | 70 61 69 72 73 2e 0a 41 |STRING) |pairs..A|
|000006e0| 6e 79 20 73 75 62 73 74 | 72 69 6e 67 20 6f 66 20 |ny subst|ring of |
|000006f0| 61 20 66 69 6c 65 6e 61 | 6d 65 20 6d 61 74 63 68 |a filena|me match|
|00000700| 69 6e 67 20 6f 6e 65 20 | 6f 66 20 74 68 65 20 52 |ing one |of the R|
|00000710| 45 47 45 58 50 73 20 69 | 73 20 72 65 70 6c 61 63 |EGEXPs i|s replac|
|00000720| 65 64 20 62 79 0a 74 68 | 65 20 63 6f 72 72 65 73 |ed by.th|e corres|
|00000730| 70 6f 6e 64 69 6e 67 20 | 53 54 52 49 4e 47 2e 20 |ponding |STRING. |
|00000740| 20 41 6c 6c 20 70 61 69 | 72 73 20 61 72 65 20 61 | All pai|rs are a|
|00000750| 70 70 6c 69 65 64 20 69 | 6e 20 74 68 65 20 6f 72 |pplied i|n the or|
|00000760| 64 65 72 20 67 69 76 65 | 6e 2e 0a 55 73 65 64 20 |der give|n..Used |
|00000770| 62 79 20 74 68 65 20 60 | 62 72 6f 77 73 65 2d 75 |by the `|browse-u|
|00000780| 72 6c 2d 6f 66 2d 66 69 | 6c 65 27 20 63 6f 6d 6d |rl-of-fi|le' comm|
|00000790| 61 6e 64 2e 1f 0a 28 64 | 65 66 76 61 72 20 62 72 |and...(d|efvar br|
|000007a0| 6f 77 73 65 2d 75 72 6c | 2d 66 69 6c 65 6e 61 6d |owse-url|-filenam|
|000007b0| 65 2d 61 6c 69 73 74 20 | 28 71 75 6f 74 65 20 28 |e-alist |(quote (|
|000007c0| 28 22 5e 2f 2b 22 20 2e | 20 22 66 69 6c 65 3a 2f |("^/+" .| "file:/|
|000007d0| 22 29 29 29 20 28 23 24 | 20 2e 20 31 37 32 32 29 |"))) (#$| . 1722)|
|000007e0| 29 0a 23 40 39 39 20 49 | 66 20 6e 6f 6e 2d 6e 69 |).#@99 I|f non-ni|
|000007f0| 6c 2c 20 73 61 76 65 20 | 74 68 65 20 62 75 66 66 |l, save |the buff|
|00000800| 65 72 20 62 65 66 6f 72 | 65 20 64 69 73 70 6c 61 |er befor|e displa|
|00000810| 79 69 6e 67 20 69 74 73 | 20 66 69 6c 65 2e 0a 55 |ying its| file..U|
|00000820| 73 65 64 20 62 79 20 74 | 68 65 20 60 62 72 6f 77 |sed by t|he `brow|
|00000830| 73 65 2d 75 72 6c 2d 6f | 66 2d 66 69 6c 65 27 20 |se-url-o|f-file' |
|00000840| 63 6f 6d 6d 61 6e 64 2e | 1f 0a 28 64 65 66 76 61 |command.|..(defva|
|00000850| 72 20 62 72 6f 77 73 65 | 2d 75 72 6c 2d 73 61 76 |r browse|-url-sav|
|00000860| 65 2d 66 69 6c 65 20 6e | 69 6c 20 28 23 24 20 2e |e-file n|il (#$ .|
|00000870| 20 32 30 32 33 29 29 0a | 23 40 32 31 30 20 41 20 | 2023)).|#@210 A |
|00000880| 68 6f 6f 6b 20 74 6f 20 | 62 65 20 72 75 6e 20 77 |hook to |be run w|
|00000890| 69 74 68 20 72 75 6e 2d | 68 6f 6f 6b 20 61 66 74 |ith run-|hook aft|
|000008a0| 65 72 20 60 62 72 6f 77 | 73 65 2d 75 72 6c 2d 6f |er `brow|se-url-o|
|000008b0| 66 2d 66 69 6c 65 27 20 | 68 61 73 20 61 73 6b 65 |f-file' |has aske|
|000008c0| 64 0a 61 20 62 72 6f 77 | 73 65 72 20 74 6f 20 6c |d.a brow|ser to l|
|000008d0| 6f 61 64 20 61 20 66 69 | 6c 65 2e 0a 0a 53 65 74 |oad a fi|le...Set|
|000008e0| 20 74 68 69 73 20 74 6f | 20 60 62 72 6f 77 73 65 | this to| `browse|
|000008f0| 2d 75 72 6c 2d 6e 65 74 | 73 63 61 70 65 2d 72 65 |-url-net|scape-re|
|00000900| 6c 6f 61 64 27 20 74 6f | 20 66 6f 72 63 65 20 4e |load' to| force N|
|00000910| 65 74 73 63 61 70 65 20 | 74 6f 20 6c 6f 61 64 20 |etscape |to load |
|00000920| 74 68 65 0a 66 69 6c 65 | 20 72 61 74 68 65 72 20 |the.file| rather |
|00000930| 74 68 61 6e 20 64 69 73 | 70 6c 61 79 69 6e 67 20 |than dis|playing |
|00000940| 61 20 63 61 63 68 65 64 | 20 63 6f 70 79 2e 1f 0a |a cached| copy...|
|00000950| 28 64 65 66 76 61 72 20 | 62 72 6f 77 73 65 2d 75 |(defvar |browse-u|
|00000960| 72 6c 2d 6f 66 2d 66 69 | 6c 65 2d 68 6f 6f 6b 20 |rl-of-fi|le-hook |
|00000970| 6e 69 6c 20 28 23 24 20 | 2e 20 32 31 37 34 29 29 |nil (#$ |. 2174))|
|00000980| 0a 23 40 31 38 32 20 54 | 68 65 20 61 72 67 75 6d |.#@182 T|he argum|
|00000990| 65 6e 74 20 74 6f 20 60 | 73 69 67 6e 61 6c 2d 70 |ent to `|signal-p|
|000009a0| 72 6f 63 65 73 73 27 20 | 66 6f 72 20 73 65 6e 64 |rocess' |for send|
|000009b0| 69 6e 67 20 53 49 47 55 | 53 52 31 20 74 6f 20 58 |ing SIGU|SR1 to X|
|000009c0| 4d 6f 73 61 69 63 2e 0a | 45 6d 61 63 73 20 31 39 |Mosaic..|Emacs 19|
|000009d0| 2e 32 39 20 61 63 63 65 | 70 74 73 20 27 53 49 47 |.29 acce|pts 'SIG|
|000009e0| 55 53 52 31 2c 20 65 61 | 72 6c 69 65 72 20 76 65 |USR1, ea|rlier ve|
|000009f0| 72 73 69 6f 6e 73 20 72 | 65 71 75 69 72 65 20 61 |rsions r|equire a|
|00000a00| 6e 20 69 6e 74 65 67 65 | 72 0a 77 68 69 63 68 20 |n intege|r.which |
|00000a10| 69 73 20 33 30 20 6f 6e | 20 53 75 6e 4f 53 20 61 |is 30 on| SunOS a|
|00000a20| 6e 64 20 31 36 20 6f 6e | 20 48 50 2d 55 58 20 61 |nd 16 on| HP-UX a|
|00000a30| 6e 64 20 53 6f 6c 61 72 | 69 73 2e 1f 0a 28 64 65 |nd Solar|is...(de|
|00000a40| 66 76 61 72 20 62 72 6f | 77 73 65 2d 75 72 6c 2d |fvar bro|wse-url-|
|00000a50| 75 73 72 31 2d 73 69 67 | 6e 61 6c 20 28 62 79 74 |usr1-sig|nal (byt|
|00000a60| 65 2d 63 6f 64 65 20 22 | c0 c1 21 83 14 00 09 c2 |e-code "|..!.....|
|00000a70| 56 84 12 00 0b c4 59 83 | 14 00 c5 87 c6 87 22 20 |V.....Y.|......" |
|00000a80| 5b 62 6f 75 6e 64 70 20 | 65 6d 61 63 73 2d 6d 61 |[boundp |emacs-ma|
|00000a90| 6a 6f 72 2d 76 65 72 73 | 69 6f 6e 20 31 39 20 65 |jor-vers|ion 19 e|
|00000aa0| 6d 61 63 73 2d 6d 69 6e | 6f 72 2d 76 65 72 73 69 |macs-min|or-versi|
|00000ab0| 6f 6e 20 32 39 20 53 49 | 47 55 53 52 31 20 33 30 |on 29 SI|GUSR1 30|
|00000ac0| 5d 20 32 29 20 28 23 24 | 20 2e 20 32 34 33 39 29 |] 2) (#$| . 2439)|
|00000ad0| 29 0a 23 40 31 33 32 20 | 50 6f 72 74 20 74 6f 20 |).#@132 |Port to |
|00000ae0| 61 63 63 65 73 73 20 58 | 4d 6f 73 61 69 63 20 76 |access X|Mosaic v|
|00000af0| 69 61 20 43 43 49 2e 0a | 54 68 69 73 20 63 61 6e |ia CCI..|This can|
|00000b00| 20 62 65 20 61 6e 79 20 | 6e 75 6d 62 65 72 20 62 | be any |number b|
|00000b10| 65 74 77 65 65 6e 20 31 | 30 32 34 20 61 6e 64 20 |etween 1|024 and |
|00000b20| 36 35 35 33 35 20 62 75 | 74 20 6d 75 73 74 20 63 |65535 bu|t must c|
|00000b30| 6f 72 72 65 73 70 6f 6e | 64 20 74 6f 0a 74 68 65 |orrespon|d to.the|
|00000b40| 20 76 61 6c 75 65 20 73 | 65 74 20 69 6e 20 74 68 | value s|et in th|
|00000b50| 65 20 62 72 6f 77 73 65 | 72 2e 1f 0a 28 64 65 66 |e browse|r...(def|
|00000b60| 76 61 72 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 43 |var brow|se-url-C|
|00000b70| 43 49 2d 70 6f 72 74 20 | 33 30 30 33 20 28 23 24 |CI-port |3003 (#$|
|00000b80| 20 2e 20 32 37 37 36 29 | 29 0a 23 40 31 32 39 20 | . 2776)|).#@129 |
|00000b90| 52 65 74 75 72 6e 20 74 | 68 65 20 55 52 4c 20 61 |Return t|he URL a|
|00000ba0| 72 6f 75 6e 64 20 6f 72 | 20 62 65 66 6f 72 65 20 |round or| before |
|00000bb0| 70 6f 69 6e 74 2e 0a 54 | 68 65 6e 20 73 65 61 72 |point..T|hen sear|
|00000bc0| 63 68 20 62 61 63 6b 77 | 61 72 64 73 20 66 6f 72 |ch backw|ards for|
|00000bd0| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 61 20 | the sta|rt of a |
|00000be0| 55 52 4c 2e 20 20 49 66 | 20 6e 6f 20 55 52 4c 20 |URL.  If| no URL |
|00000bf0| 66 6f 75 6e 64 2c 20 72 | 65 74 75 72 6e 0a 74 68 |found, r|eturn.th|
|00000c00| 65 20 65 6d 70 74 79 20 | 73 74 72 69 6e 67 2e 1f |e empty |string..|
|00000c10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 72 6f 77 |.(defali|as 'brow|
|00000c20| 73 65 2d 75 72 6c 2d 75 | 72 6c 2d 61 74 2d 70 6f |se-url-u|rl-at-po|
|00000c30| 69 6e 74 20 23 5b 6e 69 | 6c 20 22 c0 09 21 84 5c |int #[ni|l "..!.\|
|00000c40| 22 00 8a c2 7f 88 60 29 | 1b c4 09 0b c5 23 83 19 |".....`)|.....#..|
|00000c50| 00 c6 94 62 88 c7 09 c2 | c8 23 29 83 28 00 c6 94 |...b....|.#).(...|
|00000c60| c6 95 7b 87 c9 87 22 20 | 5b 6c 6f 6f 6b 69 6e 67 |..{..." |[looking|
|00000c70| 2d 61 74 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 72 |-at brow|se-url-r|
|00000c80| 65 67 65 78 70 20 6e 69 | 6c 20 65 6f 6c 20 72 65 |egexp ni|l eol re|
|00000c90| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000ca0| 6c 69 6d 20 30 20 72 65 | 2d 73 65 61 72 63 68 2d |lim 0 re|-search-|
|00000cb0| 62 61 63 6b 77 61 72 64 | 20 74 20 22 22 5d 20 34 |backward| t ""] 4|
|00000cc0| 20 28 23 24 20 2e 20 32 | 39 36 30 29 5d 29 0a 23 | (#$ . 2|960)]).#|
|00000cd0| 40 32 32 35 20 52 65 61 | 64 20 61 20 55 52 4c 20 |@225 Rea|d a URL |
|00000ce0| 66 72 6f 6d 20 74 68 65 | 20 6d 69 6e 69 62 75 66 |from the| minibuf|
|00000cf0| 66 65 72 2c 20 6f 70 74 | 69 6f 6e 61 6c 6c 79 20 |fer, opt|ionally |
|00000d00| 70 72 6f 6d 70 74 69 6e | 67 20 77 69 74 68 20 50 |promptin|g with P|
|00000d10| 52 4f 4d 50 54 2e 0a 44 | 65 66 61 75 6c 74 20 74 |ROMPT..D|efault t|
|00000d20| 6f 20 74 68 65 20 55 52 | 4c 20 61 74 20 6f 72 20 |o the UR|L at or |
|00000d30| 62 65 66 6f 72 65 20 70 | 6f 69 6e 74 2e 20 20 49 |before p|oint.  I|
|00000d40| 66 20 62 6f 75 6e 64 20 | 74 6f 20 61 20 6d 6f 75 |f bound |to a mou|
|00000d50| 73 65 20 62 75 74 74 6f | 6e 2c 0a 73 65 74 20 70 |se butto|n,.set p|
|00000d60| 6f 69 6e 74 20 74 6f 20 | 74 68 65 20 70 6f 73 69 |oint to |the posi|
|00000d70| 74 69 6f 6e 20 63 6c 69 | 63 6b 65 64 2e 20 20 52 |tion cli|cked.  R|
|00000d80| 65 74 75 72 6e 20 74 68 | 65 20 72 65 73 75 6c 74 |eturn th|e result|
|00000d90| 20 61 73 20 61 20 6c 69 | 73 74 20 66 6f 72 0a 75 | as a li|st for.u|
|00000da0| 73 65 20 69 6e 20 60 69 | 6e 74 65 72 61 63 74 69 |se in `i|nteracti|
|00000db0| 76 65 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ve'...(d|efalias |
|00000dc0| 27 62 72 6f 77 73 65 2d | 75 72 6c 2d 69 6e 74 65 |'browse-|url-inte|
|00000dd0| 72 61 63 74 69 76 65 2d | 61 72 67 20 23 5b 28 26 |ractive-|arg #[(&|
|00000de0| 6f 70 74 69 6f 6e 61 6c | 20 70 72 6f 6d 70 74 29 |optional| prompt)|
|00000df0| 20 22 c0 20 c1 9c 89 1a | 3c 83 0e 00 c3 5c 6e 21 | ". ....|<....\n!|
|00000e00| 88 29 c4 0d 86 15 00 c6 | c7 20 5c 22 43 87 22 20 |.)......|. \"C." |
|00000e10| 5b 74 68 69 73 2d 63 6f | 6d 6d 61 6e 64 2d 6b 65 |[this-co|mmand-ke|
|00000e20| 79 73 20 30 20 65 76 65 | 6e 74 20 6d 6f 75 73 65 |ys 0 eve|nt mouse|
|00000e30| 2d 73 65 74 2d 70 6f 69 | 6e 74 20 72 65 61 64 2d |-set-poi|nt read-|
|00000e40| 73 74 72 69 6e 67 20 70 | 72 6f 6d 70 74 20 22 55 |string p|rompt "U|
|00000e50| 52 4c 3a 20 22 20 62 72 | 6f 77 73 65 2d 75 72 6c |RL: " br|owse-url|
|00000e60| 2d 75 72 6c 2d 61 74 2d | 70 6f 69 6e 74 5d 20 34 |-url-at-|point] 4|
|00000e70| 20 28 23 24 20 2e 20 33 | 32 38 35 29 5d 29 0a 23 | (#$ . 3|285)]).#|
|00000e80| 40 31 33 30 20 41 73 6b | 20 61 20 57 57 57 20 62 |@130 Ask| a WWW b|
|00000e90| 72 6f 77 73 65 72 20 74 | 6f 20 6c 6f 61 64 20 74 |rowser t|o load t|
|00000ea0| 68 65 20 55 52 4c 20 61 | 74 20 6f 72 20 62 65 66 |he URL a|t or bef|
|00000eb0| 6f 72 65 20 70 6f 69 6e | 74 2e 0a 54 68 65 20 55 |ore poin|t..The U|
|00000ec0| 52 4c 20 69 73 20 6c 6f | 61 64 65 64 20 61 63 63 |RL is lo|aded acc|
|00000ed0| 6f 72 64 69 6e 67 20 74 | 6f 20 74 68 65 20 76 61 |ording t|o the va|
|00000ee0| 6c 75 65 20 6f 66 20 60 | 62 72 6f 77 73 65 2d 75 |lue of `|browse-u|
|00000ef0| 72 6c 2d 62 72 6f 77 73 | 65 72 2d 66 75 6e 63 74 |rl-brows|er-funct|
|00000f00| 69 6f 6e 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ion'...(|defalias|
|00000f10| 20 27 62 72 6f 77 73 65 | 2d 75 72 6c 2d 61 74 2d | 'browse|-url-at-|
|00000f20| 70 6f 69 6e 74 20 23 5b | 6e 69 6c 20 22 08 c1 20 |point #[|nil ".. |
|00000f30| 21 87 22 20 5b 62 72 6f | 77 73 65 2d 75 72 6c 2d |!." [bro|wse-url-|
|00000f40| 62 72 6f 77 73 65 72 2d | 66 75 6e 63 74 69 6f 6e |browser-|function|
|00000f50| 20 62 72 6f 77 73 65 2d | 75 72 6c 2d 75 72 6c 2d | browse-|url-url-|
|00000f60| 61 74 2d 70 6f 69 6e 74 | 5d 20 32 20 28 23 24 20 |at-point|] 2 (#$ |
|00000f70| 2e 20 33 37 31 37 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 3717) |nil]).#@|
|00000f80| 32 32 37 20 41 73 6b 20 | 61 20 57 57 57 20 62 72 |227 Ask |a WWW br|
|00000f90| 6f 77 73 65 72 20 74 6f | 20 6c 6f 61 64 20 61 20 |owser to| load a |
|00000fa0| 55 52 4c 20 63 6c 69 63 | 6b 65 64 20 77 69 74 68 |URL clic|ked with|
|00000fb0| 20 74 68 65 20 6d 6f 75 | 73 65 2e 0a 54 68 65 20 | the mou|se..The |
|00000fc0| 55 52 4c 20 69 73 20 74 | 68 65 20 6f 6e 65 20 61 |URL is t|he one a|
|00000fd0| 72 6f 75 6e 64 20 6f 72 | 20 62 65 66 6f 72 65 20 |round or| before |
|00000fe0| 74 68 65 20 70 6f 73 69 | 74 69 6f 6e 20 6f 66 20 |the posi|tion of |
|00000ff0| 74 68 65 20 6d 6f 75 73 | 65 20 63 6c 69 63 6b 0a |the mous|e click.|
|00001000| 62 75 74 20 70 6f 69 6e | 74 20 69 73 20 6e 6f 74 |but poin|t is not|
|00001010| 20 63 68 61 6e 67 65 64 | 2e 20 20 54 68 65 20 55 | changed|.  The U|
|00001020| 52 4c 20 69 73 20 6c 6f | 61 64 65 64 20 61 63 63 |RL is lo|aded acc|
|00001030| 6f 72 64 69 6e 67 20 74 | 6f 20 74 68 65 20 76 61 |ording t|o the va|
|00001040| 6c 75 65 20 6f 66 0a 60 | 62 72 6f 77 73 65 2d 75 |lue of.`|browse-u|
|00001050| 72 6c 2d 62 72 6f 77 73 | 65 72 2d 66 75 6e 63 74 |rl-brows|er-funct|
|00001060| 69 6f 6e 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ion'...(|defalias|
|00001070| 20 27 62 72 6f 77 73 65 | 2d 75 72 6c 2d 61 74 2d | 'browse|-url-at-|
|00001080| 6d 6f 75 73 65 20 23 5b | 28 65 76 65 6e 74 29 20 |mouse #[|(event) |
|00001090| 22 8a 08 89 18 41 40 29 | 19 c2 09 89 1b 40 29 21 |"....A@)|.....@)!|
|000010a0| 71 88 09 89 1b 41 40 3a | 83 21 00 0b 41 40 40 82 |q....A@:|.!..A@@.|
|000010b0| 24 00 0b 41 40 29 62 88 | c4 20 89 1d c6 98 83 34 |$..A@)b.|. .....4|
|000010c0| 00 c7 c8 21 88 0e 09 0d | 21 2b 87 22 20 5b 65 76 |...!....|!+." [ev|
|000010d0| 65 6e 74 20 70 6f 73 6e | 20 77 69 6e 64 6f 77 2d |ent posn| window-|
|000010e0| 62 75 66 66 65 72 20 70 | 6f 73 69 74 69 6f 6e 20 |buffer p|osition |
|000010f0| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 75 72 6c 2d 61 |browse-u|rl-url-a|
|00001100| 74 2d 70 6f 69 6e 74 20 | 75 72 6c 20 22 22 20 65 |t-point |url "" e|
|00001110| 72 72 6f 72 20 22 4e 6f | 20 55 52 4c 20 66 6f 75 |rror "No| URL fou|
|00001120| 6e 64 22 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 62 |nd" brow|se-url-b|
|00001130| 72 6f 77 73 65 72 2d 66 | 75 6e 63 74 69 6f 6e 5d |rowser-f|unction]|
|00001140| 20 33 20 28 23 24 20 2e | 20 33 39 37 32 29 20 22 | 3 (#$ .| 3972) "|
|00001150| 65 22 5d 29 0a 23 40 33 | 32 35 20 41 73 6b 20 61 |e"]).#@3|25 Ask a|
|00001160| 20 57 57 57 20 62 72 6f | 77 73 65 72 20 74 6f 20 | WWW bro|wser to |
|00001170| 64 69 73 70 6c 61 79 20 | 46 49 4c 45 2e 0a 44 69 |display |FILE..Di|
|00001180| 73 70 6c 61 79 20 74 68 | 65 20 63 75 72 72 65 6e |splay th|e curren|
|00001190| 74 20 62 75 66 66 65 72 | 27 73 20 66 69 6c 65 20 |t buffer|'s file |
|000011a0| 69 66 20 46 49 4c 45 20 | 69 73 20 6e 69 6c 20 6f |if FILE |is nil o|
|000011b0| 72 20 69 66 20 63 61 6c | 6c 65 64 0a 69 6e 74 65 |r if cal|led.inte|
|000011c0| 72 61 63 74 69 76 65 6c | 79 2e 20 20 54 75 72 6e |ractivel|y.  Turn|
|000011d0| 20 74 68 65 20 66 69 6c | 65 6e 61 6d 65 20 69 6e | the fil|ename in|
|000011e0| 74 6f 20 61 20 55 52 4c | 20 62 79 20 70 65 72 66 |to a URL| by perf|
|000011f0| 6f 72 6d 69 6e 67 0a 72 | 65 70 6c 61 63 65 6d 65 |orming.r|eplaceme|
|00001200| 6e 74 73 20 67 69 76 65 | 6e 20 69 6e 20 76 61 72 |nts give|n in var|
|00001210| 69 61 62 6c 65 20 60 62 | 72 6f 77 73 65 2d 75 72 |iable `b|rowse-ur|
|00001220| 6c 2d 66 69 6c 65 6e 61 | 6d 65 2d 61 6c 69 73 74 |l-filena|me-alist|
|00001230| 27 2e 20 20 50 61 73 73 | 20 74 68 65 0a 55 52 4c |'.  Pass| the.URL|
|00001240| 20 74 6f 20 61 20 62 72 | 6f 77 73 65 72 20 75 73 | to a br|owser us|
|00001250| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 20 60 62 72 |ing vari|able `br|
|00001260| 6f 77 73 65 2d 75 72 6c | 2d 62 72 6f 77 73 65 72 |owse-url|-browser|
|00001270| 2d 66 75 6e 63 74 69 6f | 6e 27 20 74 68 65 6e 20 |-functio|n' then |
|00001280| 72 75 6e 0a 60 62 72 6f | 77 73 65 2d 75 72 6c 2d |run.`bro|wse-url-|
|00001290| 6f 66 2d 66 69 6c 65 2d | 68 6f 6f 6b 27 2e 1f 0a |of-file-|hook'...|
|000012a0| 28 64 65 66 61 6c 69 61 | 73 20 27 62 72 6f 77 73 |(defalia|s 'brows|
|000012b0| 65 2d 75 72 6c 2d 6f 66 | 2d 66 69 6c 65 20 23 5b |e-url-of|-file #[|
|000012c0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 29 |(&option|al file)|
|000012d0| 20 22 08 86 5c 66 00 c1 | 20 86 5c 66 00 c2 c3 21 | "..\f..| .\f...!|
|000012e0| 10 c4 08 21 89 1d 83 2f | 00 8a 0d 71 88 c6 20 83 |...!.../|...q.. .|
|000012f0| 2e 00 0e 07 83 29 00 c8 | 20 88 82 2e 00 c9 ca 08 |.....)..| .......|
|00001300| 5c 22 88 29 29 0e 0b cc | 08 21 21 88 cd ce 21 87 |\".))...|.!!...!.|
|00001310| 22 20 5b 66 69 6c 65 20 | 62 75 66 66 65 72 2d 66 |" [file |buffer-f|
|00001320| 69 6c 65 2d 6e 61 6d 65 | 20 65 72 72 6f 72 20 22 |ile-name| error "|
|00001330| 43 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 68 |Current |buffer h|
|00001340| 61 73 20 6e 6f 20 66 69 | 6c 65 22 20 67 65 74 2d |as no fi|le" get-|
|00001350| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 62 75 66 20 |file-buf|fer buf |
|00001360| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00001370| 70 20 62 72 6f 77 73 65 | 2d 75 72 6c 2d 73 61 76 |p browse|-url-sav|
|00001380| 65 2d 66 69 6c 65 20 73 | 61 76 65 2d 62 75 66 66 |e-file s|ave-buff|
|00001390| 65 72 20 6d 65 73 73 61 | 67 65 20 22 25 73 20 6d |er messa|ge "%s m|
|000013a0| 6f 64 69 66 69 65 64 20 | 73 69 6e 63 65 20 6c 61 |odified |since la|
|000013b0| 73 74 20 73 61 76 65 22 | 20 62 72 6f 77 73 65 2d |st save"| browse-|
|000013c0| 75 72 6c 2d 62 72 6f 77 | 73 65 72 2d 66 75 6e 63 |url-brow|ser-func|
|000013d0| 74 69 6f 6e 20 62 72 6f | 77 73 65 2d 75 72 6c 2d |tion bro|wse-url-|
|000013e0| 66 69 6c 65 2d 75 72 6c | 20 72 75 6e 2d 68 6f 6f |file-url| run-hoo|
|000013f0| 6b 73 20 62 72 6f 77 73 | 65 2d 75 72 6c 2d 6f 66 |ks brows|e-url-of|
|00001400| 2d 66 69 6c 65 2d 68 6f | 6f 6b 5d 20 34 20 28 23 |-file-ho|ok] 4 (#|
|00001410| 24 20 2e 20 34 34 34 33 | 29 20 6e 69 6c 5d 29 0a |$ . 4443|) nil]).|
|00001420| 23 40 31 30 37 20 52 65 | 74 75 72 6e 20 74 68 65 |#@107 Re|turn the|
|00001430| 20 55 52 4c 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | URL cor|respondi|
|00001440| 6e 67 20 74 6f 20 46 49 | 4c 45 2e 0a 55 73 65 73 |ng to FI|LE..Uses|
|00001450| 20 76 61 72 69 61 62 6c | 65 20 60 62 72 6f 77 73 | variabl|e `brows|
|00001460| 65 2d 75 72 6c 2d 66 69 | 6c 65 6e 61 6d 65 2d 61 |e-url-fi|lename-a|
|00001470| 6c 69 73 74 27 20 74 6f | 20 6d 61 70 20 66 69 6c |list' to| map fil|
|00001480| 65 6e 61 6d 65 73 20 74 | 6f 20 55 52 4c 73 2e 1f |enames t|o URLs..|
|00001490| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 72 6f 77 |.(defali|as 'brow|
|000014a0| 73 65 2d 75 72 6c 2d 66 | 69 6c 65 2d 75 72 6c 20 |se-url-f|ile-url |
|000014b0| 23 5b 28 66 69 6c 65 29 | 20 22 08 19 09 83 2e 00 |#[(file)| "......|
|000014c0| 09 40 89 1a 40 1b 5c 6e | 41 1c 09 41 11 c5 0b 0e |.@..@.\n|A..A....|
|000014d0| 06 5c 22 83 2a 00 0e 06 | c7 89 94 4f 5c 66 0e 06 |.\".*...|...O\f..|
|000014e0| c7 95 c8 4f 51 16 06 2b | 82 02 00 29 0e 06 87 22 |...OQ..+|...)..."|
|000014f0| 20 5b 62 72 6f 77 73 65 | 2d 75 72 6c 2d 66 69 6c | [browse|-url-fil|
|00001500| 65 6e 61 6d 65 2d 61 6c | 69 73 74 20 6d 61 70 73 |ename-al|ist maps|
|00001510| 20 6d 61 70 20 66 72 6f | 6d 2d 72 65 20 74 6f 2d | map fro|m-re to-|
|00001520| 73 74 72 69 6e 67 20 73 | 74 72 69 6e 67 2d 6d 61 |string s|tring-ma|
|00001530| 74 63 68 20 66 69 6c 65 | 20 30 20 6e 69 6c 5d 20 |tch file| 0 nil] |
|00001540| 36 20 28 23 24 20 2e 20 | 35 31 35 38 29 5d 29 0a |6 (#$ . |5158)]).|
|00001550| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|00001560| 08 00 c2 11 c1 0b 42 13 | c4 c1 21 88 c0 c5 21 84 |......B.|..!...!.|
|00001570| 18 00 c2 15 c5 0b 42 13 | c2 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00001580| 6e 64 70 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 74 |ndp brow|se-url-t|
|00001590| 65 6d 70 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6e 69 |emp-file|-name ni|
|000015a0| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|000015b0| 69 73 74 20 6d 61 6b 65 | 2d 76 61 72 69 61 62 6c |ist make|-variabl|
|000015c0| 65 2d 62 75 66 66 65 72 | 2d 6c 6f 63 61 6c 20 62 |e-buffer|-local b|
|000015d0| 72 6f 77 73 65 2d 75 72 | 6c 2d 74 65 6d 70 2d 66 |rowse-ur|l-temp-f|
|000015e0| 69 6c 65 2d 6c 69 73 74 | 5d 20 32 29 0a 23 40 38 |ile-list|] 2).#@8|
|000015f0| 33 20 41 73 6b 20 61 20 | 57 57 57 20 62 72 6f 77 |3 Ask a |WWW brow|
|00001600| 73 65 72 20 74 6f 20 64 | 69 73 70 6c 61 79 20 42 |ser to d|isplay B|
|00001610| 55 46 46 45 52 2e 0a 44 | 69 73 70 6c 61 79 20 74 |UFFER..D|isplay t|
|00001620| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00001630| 72 20 69 66 20 42 55 46 | 46 45 52 20 69 73 20 6e |r if BUF|FER is n|
|00001640| 69 6c 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il...(de|falias '|
|00001650| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 6f 66 2d 62 75 |browse-u|rl-of-bu|
|00001660| 66 66 65 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ffer #[(|&optiona|
|00001670| 6c 20 62 75 66 66 65 72 | 29 20 22 8a 08 86 06 00 |l buffer|) ".....|
|00001680| 70 71 88 09 86 13 00 c2 | c3 21 85 13 00 0b 89 1c |pq......|.!......|
|00001690| 84 38 00 0d 84 30 00 c6 | c7 c8 20 c9 ca 21 86 27 |.8...0..|.. ..!.'|
|000016a0| 00 cb 5c 22 21 89 15 0e | 5c 66 42 16 5c 66 cd 65 |..\"!...|\fB.\f.e|
|000016b0| 64 0d ce cf 25 88 d0 5c | 66 86 3e 00 0d 21 2a 87 |d...%..\|f.>..!*.|
|000016c0| 22 20 5b 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |" [buffe|r buffer|
|000016d0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 62 6f 75 6e 64 |-file-na|me bound|
|000016e0| 70 20 64 69 72 65 64 2d | 64 69 72 65 63 74 6f 72 |p dired-|director|
|000016f0| 79 20 66 69 6c 65 2d 6e | 61 6d 65 20 62 72 6f 77 |y file-n|ame brow|
|00001700| 73 65 2d 75 72 6c 2d 74 | 65 6d 70 2d 66 69 6c 65 |se-url-t|emp-file|
|00001710| 2d 6e 61 6d 65 20 6d 61 | 6b 65 2d 74 65 6d 70 2d |-name ma|ke-temp-|
|00001720| 6e 61 6d 65 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |name exp|and-file|
|00001730| 2d 6e 61 6d 65 20 62 75 | 66 66 65 72 2d 6e 61 6d |-name bu|ffer-nam|
|00001740| 65 20 67 65 74 65 6e 76 | 20 22 54 4d 50 44 49 52 |e getenv| "TMPDIR|
|00001750| 22 20 22 2f 74 6d 70 22 | 20 62 72 6f 77 73 65 2d |" "/tmp"| browse-|
|00001760| 75 72 6c 2d 74 65 6d 70 | 2d 66 69 6c 65 2d 6c 69 |url-temp|-file-li|
|00001770| 73 74 20 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |st write|-region |
|00001780| 6e 69 6c 20 6e 6f 2d 6d | 65 73 73 61 67 65 20 62 |nil no-m|essage b|
|00001790| 72 6f 77 73 65 2d 75 72 | 6c 2d 6f 66 2d 66 69 6c |rowse-ur|l-of-fil|
|000017a0| 65 5d 20 37 20 28 23 24 | 20 2e 20 35 36 31 38 29 |e] 7 (#$| . 5618)|
|000017b0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000017c0| 20 27 62 72 6f 77 73 65 | 2d 75 72 6c 2d 64 65 6c | 'browse|-url-del|
|000017d0| 65 74 65 2d 74 65 6d 70 | 2d 66 69 6c 65 20 23 5b |ete-temp|-file #[|
|000017e0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 74 65 6d 70 2d |(&option|al temp-|
|000017f0| 66 69 6c 65 2d 6e 61 6d | 65 29 20 22 08 86 05 00 |file-nam|e) "....|
|00001800| 09 89 1a 85 21 00 c3 5c | 6e 21 85 21 00 c4 5c 6e |....!..\|n!.!..\n|
|00001810| 21 88 08 3f 85 21 00 c5 | 09 0e 06 5c 22 89 16 06 |!..?.!..|...\"...|
|00001820| 29 87 22 20 5b 74 65 6d | 70 2d 66 69 6c 65 2d 6e |)." [tem|p-file-n|
|00001830| 61 6d 65 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 74 |ame brow|se-url-t|
|00001840| 65 6d 70 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 66 69 |emp-file|-name fi|
|00001850| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 2d 65 78 69 |le-name |file-exi|
|00001860| 73 74 73 2d 70 20 64 65 | 6c 65 74 65 2d 66 69 6c |sts-p de|lete-fil|
|00001870| 65 20 64 65 6c 65 74 65 | 20 62 72 6f 77 73 65 2d |e delete| browse-|
|00001880| 75 72 6c 2d 74 65 6d 70 | 2d 66 69 6c 65 2d 6c 69 |url-temp|-file-li|
|00001890| 73 74 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |st] 4]).|(defalia|
|000018a0| 73 20 27 62 72 6f 77 73 | 65 2d 75 72 6c 2d 64 65 |s 'brows|e-url-de|
|000018b0| 6c 65 74 65 2d 74 65 6d | 70 2d 66 69 6c 65 2d 6c |lete-tem|p-file-l|
|000018c0| 69 73 74 20 23 5b 6e 69 | 6c 20 22 08 85 11 00 c1 |ist #[ni|l ".....|
|000018d0| 08 40 21 88 08 41 89 10 | 84 04 00 c2 87 22 20 5b |.@!..A..|....." [|
|000018e0| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 74 65 6d 70 2d |browse-u|rl-temp-|
|000018f0| 66 69 6c 65 2d 6c 69 73 | 74 20 62 72 6f 77 73 65 |file-lis|t browse|
|00001900| 2d 75 72 6c 2d 64 65 6c | 65 74 65 2d 74 65 6d 70 |-url-del|ete-temp|
|00001910| 2d 66 69 6c 65 20 6e 69 | 6c 5d 20 33 5d 29 0a 28 |-file ni|l] 3]).(|
|00001920| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00001930| 88 c0 c3 c4 5c 22 87 22 | 20 5b 61 64 64 2d 68 6f |....\"."| [add-ho|
|00001940| 6f 6b 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 2d 68 |ok kill-|buffer-h|
|00001950| 6f 6f 6b 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 64 |ook brow|se-url-d|
|00001960| 65 6c 65 74 65 2d 74 65 | 6d 70 2d 66 69 6c 65 20 |elete-te|mp-file |
|00001970| 6b 69 6c 6c 2d 65 6d 61 | 63 73 2d 68 6f 6f 6b 20 |kill-ema|cs-hook |
|00001980| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 64 65 6c 65 74 |browse-u|rl-delet|
|00001990| 65 2d 74 65 6d 70 2d 66 | 69 6c 65 2d 6c 69 73 74 |e-temp-f|ile-list|
|000019a0| 5d 20 33 29 0a 23 40 36 | 39 20 49 6e 20 44 69 72 |] 3).#@6|9 In Dir|
|000019b0| 65 64 2c 20 61 73 6b 20 | 61 20 57 57 57 20 62 72 |ed, ask |a WWW br|
|000019c0| 6f 77 73 65 72 20 74 6f | 20 64 69 73 70 6c 61 79 |owser to| display|
|000019d0| 20 74 68 65 20 66 69 6c | 65 20 6e 61 6d 65 64 20 | the fil|e named |
|000019e0| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 1f 0a 28 |on this |line...(|
|000019f0| 64 65 66 61 6c 69 61 73 | 20 27 62 72 6f 77 73 65 |defalias| 'browse|
|00001a00| 2d 75 72 6c 2d 6f 66 2d | 64 69 72 65 64 2d 66 69 |-url-of-|dired-fi|
|00001a10| 6c 65 20 23 5b 6e 69 6c | 20 22 c0 c1 20 21 87 22 |le #[nil| ".. !."|
|00001a20| 20 5b 62 72 6f 77 73 65 | 2d 75 72 6c 2d 6f 66 2d | [browse|-url-of-|
|00001a30| 66 69 6c 65 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |file dir|ed-get-f|
|00001a40| 69 6c 65 6e 61 6d 65 5d | 20 32 20 28 23 24 20 2e |ilename]| 2 (#$ .|
|00001a50| 20 36 35 37 30 29 20 6e | 69 6c 5d 29 0a 23 40 35 | 6570) n|il]).#@5|
|00001a60| 33 31 20 41 73 6b 20 74 | 68 65 20 4e 65 74 73 63 |31 Ask t|he Netsc|
|00001a70| 61 70 65 20 57 57 57 20 | 62 72 6f 77 73 65 72 20 |ape WWW |browser |
|00001a80| 74 6f 20 6c 6f 61 64 20 | 55 52 4c 2e 0a 0a 44 65 |to load |URL...De|
|00001a90| 66 61 75 6c 74 20 74 6f | 20 74 68 65 20 55 52 4c |fault to| the URL|
|00001aa0| 20 61 72 6f 75 6e 64 20 | 6f 72 20 62 65 66 6f 72 | around |or befor|
|00001ab0| 65 20 70 6f 69 6e 74 2e | 20 20 54 68 65 20 73 74 |e point.|  The st|
|00001ac0| 72 69 6e 67 73 20 69 6e | 20 76 61 72 69 61 62 6c |rings in| variabl|
|00001ad0| 65 0a 60 62 72 6f 77 73 | 65 2d 75 72 6c 2d 6e 65 |e.`brows|e-url-ne|
|00001ae0| 74 73 63 61 70 65 2d 61 | 72 67 75 6d 65 6e 74 73 |tscape-a|rguments|
|00001af0| 27 20 61 72 65 20 61 6c | 73 6f 20 70 61 73 73 65 |' are al|so passe|
|00001b00| 64 20 74 6f 20 4e 65 74 | 73 63 61 70 65 2e 0a 0a |d to Net|scape...|
|00001b10| 57 68 65 6e 20 63 61 6c | 6c 65 64 20 69 6e 74 65 |When cal|led inte|
|00001b20| 72 61 63 74 69 76 65 6c | 79 2c 20 69 66 20 76 61 |ractivel|y, if va|
|00001b30| 72 69 61 62 6c 65 20 60 | 62 72 6f 77 73 65 2d 75 |riable `|browse-u|
|00001b40| 72 6c 2d 6e 65 77 2d 77 | 69 6e 64 6f 77 2d 70 27 |rl-new-w|indow-p'|
|00001b50| 20 69 73 0a 6e 6f 6e 2d | 6e 69 6c 2c 20 6c 6f 61 | is.non-|nil, loa|
|00001b60| 64 20 74 68 65 20 64 6f | 63 75 6d 65 6e 74 20 69 |d the do|cument i|
|00001b70| 6e 20 61 20 6e 65 77 20 | 4e 65 74 73 63 61 70 65 |n a new |Netscape|
|00001b80| 20 77 69 6e 64 6f 77 2c | 20 6f 74 68 65 72 77 69 | window,| otherwi|
|00001b90| 73 65 20 75 73 65 20 61 | 0a 72 61 6e 64 6f 6d 20 |se use a|.random |
|00001ba0| 65 78 69 73 74 69 6e 67 | 20 6f 6e 65 2e 20 20 41 |existing| one.  A|
|00001bb0| 20 6e 6f 6e 2d 6e 69 6c | 20 69 6e 74 65 72 61 63 | non-nil| interac|
|00001bc0| 74 69 76 65 20 70 72 65 | 66 69 78 20 61 72 67 75 |tive pre|fix argu|
|00001bd0| 6d 65 6e 74 20 72 65 76 | 65 72 73 65 73 0a 74 68 |ment rev|erses.th|
|00001be0| 65 20 65 66 66 65 63 74 | 20 6f 66 20 62 72 6f 77 |e effect| of brow|
|00001bf0| 73 65 2d 75 72 6c 2d 6e | 65 77 2d 77 69 6e 64 6f |se-url-n|ew-windo|
|00001c00| 77 2d 70 2e 0a 0a 57 68 | 65 6e 20 63 61 6c 6c 65 |w-p...Wh|en calle|
|00001c10| 64 20 6e 6f 6e 2d 69 6e | 74 65 72 61 63 74 69 76 |d non-in|teractiv|
|00001c20| 65 6c 79 2c 20 6f 70 74 | 69 6f 6e 61 6c 20 73 65 |ely, opt|ional se|
|00001c30| 63 6f 6e 64 20 61 72 67 | 75 6d 65 6e 74 20 4e 45 |cond arg|ument NE|
|00001c40| 57 2d 57 49 4e 44 4f 57 | 20 69 73 0a 75 73 65 64 |W-WINDOW| is.used|
|00001c50| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 62 72 6f 77 | instead| of brow|
|00001c60| 73 65 2d 75 72 6c 2d 6e | 65 77 2d 77 69 6e 64 6f |se-url-n|ew-windo|
|00001c70| 77 2d 70 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |w-p...(d|efalias |
|00001c80| 27 62 72 6f 77 73 65 2d | 75 72 6c 2d 6e 65 74 73 |'browse-|url-nets|
|00001c90| 63 61 70 65 20 23 5b 28 | 75 72 6c 20 26 6f 70 74 |cape #[(|url &opt|
|00001ca0| 69 6f 6e 61 6c 20 6e 65 | 77 2d 77 69 6e 64 6f 77 |ional ne|w-window|
|00001cb0| 29 20 22 c0 c1 5c 6e c3 | 89 89 c4 0d 0e 06 85 0e |) "..\n.|........|
|00001cc0| 00 c7 c8 c9 0e 5c 6e 0e | 06 85 18 00 cb cc 52 44 |.....\n.|......RD|
|00001cd0| 23 26 06 89 1e 0d 3b 83 | 2d 00 ce cf 0e 0d 5c 22 |#&....;.|-.....\"|
|00001ce0| 82 44 00 0e 0d d0 55 86 | 44 00 d1 d2 21 88 c0 d3 |.D....U.|D...!...|
|00001cf0| d4 c3 5c 6e c4 0d 0e 5c | 6e 43 5c 22 25 29 87 22 |..\n...\|nC\"%)."|
|00001d00| 20 5b 61 70 70 6c 79 20 | 63 61 6c 6c 2d 70 72 6f | [apply |call-pro|
|00001d10| 63 65 73 73 20 62 72 6f | 77 73 65 2d 75 72 6c 2d |cess bro|wse-url-|
|00001d20| 6e 65 74 73 63 61 70 65 | 2d 70 72 6f 67 72 61 6d |netscape|-program|
|00001d30| 20 6e 69 6c 20 61 70 70 | 65 6e 64 20 62 72 6f 77 | nil app|end brow|
|00001d40| 73 65 2d 75 72 6c 2d 6e | 65 74 73 63 61 70 65 2d |se-url-n|etscape-|
|00001d50| 61 72 67 75 6d 65 6e 74 | 73 20 6e 65 77 2d 77 69 |argument|s new-wi|
|00001d60| 6e 64 6f 77 20 28 22 2d | 6e 6f 72 61 69 73 65 22 |ndow ("-|noraise"|
|00001d70| 29 20 22 2d 72 65 6d 6f | 74 65 22 20 22 6f 70 65 |) "-remo|te" "ope|
|00001d80| 6e 55 52 4c 28 22 20 75 | 72 6c 20 22 2c 6e 65 77 |nURL(" u|rl ",new|
|00001d90| 2d 77 69 6e 64 6f 77 22 | 20 22 29 22 20 72 65 73 |-window"| ")" res|
|00001da0| 20 65 72 72 6f 72 20 22 | 6e 65 74 73 63 61 70 65 | error "|netscape|
|00001db0| 20 67 6f 74 20 73 69 67 | 6e 61 6c 3a 20 25 73 22 | got sig|nal: %s"|
|00001dc0| 20 30 20 6d 65 73 73 61 | 67 65 20 22 53 74 61 72 | 0 messa|ge "Star|
|00001dd0| 74 69 6e 67 20 4e 65 74 | 73 63 61 70 65 2e 2e 2e |ting Net|scape...|
|00001de0| 22 20 73 74 61 72 74 2d | 70 72 6f 63 65 73 73 20 |" start-|process |
|00001df0| 22 6e 65 74 73 63 61 70 | 65 22 5d 20 31 35 20 28 |"netscap|e"] 15 (|
|00001e00| 23 24 20 2e 20 36 37 35 | 35 29 20 28 62 79 74 65 |#$ . 675|5) (byte|
|00001e10| 2d 63 6f 64 65 20 22 c0 | c1 c2 21 0b 3f 5c 66 3f |-code ".|..!.?\f?|
|00001e20| 3d 3f 43 5c 22 87 22 20 | 5b 61 70 70 65 6e 64 20 |=?C\"." |[append |
|00001e30| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 69 6e 74 65 72 |browse-u|rl-inter|
|00001e40| 61 63 74 69 76 65 2d 61 | 72 67 20 22 4e 65 74 73 |active-a|rg "Nets|
|00001e50| 63 61 70 65 20 55 52 4c | 3a 20 22 20 62 72 6f 77 |cape URL|: " brow|
|00001e60| 73 65 2d 75 72 6c 2d 6e | 65 77 2d 77 69 6e 64 6f |se-url-n|ew-windo|
|00001e70| 77 2d 70 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |w-p curr|ent-pref|
|00001e80| 69 78 2d 61 72 67 5d 20 | 34 29 5d 29 0a 23 40 34 |ix-arg] |4)]).#@4|
|00001e90| 36 20 41 73 6b 20 4e 65 | 74 73 63 61 70 65 20 74 |6 Ask Ne|tscape t|
|00001ea0| 6f 20 72 65 6c 6f 61 64 | 20 69 74 73 20 63 75 72 |o reload| its cur|
|00001eb0| 72 65 6e 74 20 64 6f 63 | 75 6d 65 6e 74 2e 1f 0a |rent doc|ument...|
|00001ec0| 28 64 65 66 61 6c 69 61 | 73 20 27 62 72 6f 77 73 |(defalia|s 'brows|
|00001ed0| 65 2d 75 72 6c 2d 6e 65 | 74 73 63 61 70 65 2d 72 |e-url-ne|tscape-r|
|00001ee0| 65 6c 6f 61 64 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |eload #[|nil "..!|
|00001ef0| 87 22 20 5b 62 72 6f 77 | 73 65 2d 75 72 6c 2d 6e |." [brow|se-url-n|
|00001f00| 65 74 73 63 61 70 65 2d | 63 6f 6d 6d 61 6e 64 20 |etscape-|command |
|00001f10| 22 72 65 6c 6f 61 64 22 | 5d 20 32 20 28 23 24 20 |"reload"|] 2 (#$ |
|00001f20| 2e 20 37 38 32 36 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 7826) |nil]).#@|
|00001f30| 34 34 20 53 65 6e 64 20 | 61 20 72 65 6d 6f 74 65 |44 Send |a remote|
|00001f40| 20 63 6f 6e 74 72 6f 6c | 20 63 6f 6d 6d 61 6e 64 | control| command|
|00001f50| 20 74 6f 20 4e 65 74 73 | 63 61 70 65 2e 1f 0a 28 | to Nets|cape...(|
|00001f60| 64 65 66 61 6c 69 61 73 | 20 27 62 72 6f 77 73 65 |defalias| 'browse|
|00001f70| 2d 75 72 6c 2d 6e 65 74 | 73 63 61 70 65 2d 63 6f |-url-net|scape-co|
|00001f80| 6d 6d 61 6e 64 20 23 5b | 28 63 6f 6d 6d 61 6e 64 |mmand #[|(command|
|00001f90| 29 20 22 c0 c1 c2 c3 c2 | c4 0d c6 0e 07 44 5c 22 |) ".....|.....D\"|
|00001fa0| 25 87 22 20 5b 61 70 70 | 6c 79 20 73 74 61 72 74 |%." [app|ly start|
|00001fb0| 2d 70 72 6f 63 65 73 73 | 20 22 6e 65 74 73 63 61 |-process| "netsca|
|00001fc0| 70 65 22 20 6e 69 6c 20 | 61 70 70 65 6e 64 20 62 |pe" nil |append b|
|00001fd0| 72 6f 77 73 65 2d 75 72 | 6c 2d 6e 65 74 73 63 61 |rowse-ur|l-netsca|
|00001fe0| 70 65 2d 61 72 67 75 6d | 65 6e 74 73 20 22 2d 72 |pe-argum|ents "-r|
|00001ff0| 65 6d 6f 74 65 22 20 63 | 6f 6d 6d 61 6e 64 5d 20 |emote" c|ommand] |
|00002000| 39 20 28 23 24 20 2e 20 | 37 39 38 37 29 5d 29 0a |9 (#$ . |7987)]).|
|00002010| 23 40 38 35 20 41 73 6b | 20 74 68 65 20 58 4d 6f |#@85 Ask| the XMo|
|00002020| 73 61 69 63 20 57 57 57 | 20 62 72 6f 77 73 65 72 |saic WWW| browser|
|00002030| 20 74 6f 20 6c 6f 61 64 | 20 55 52 4c 2e 0a 44 65 | to load| URL..De|
|00002040| 66 61 75 6c 74 20 74 6f | 20 74 68 65 20 55 52 4c |fault to| the URL|
|00002050| 20 61 72 6f 75 6e 64 20 | 6f 72 20 62 65 66 6f 72 | around |or befor|
|00002060| 65 20 70 6f 69 6e 74 2e | 1f 0a 28 64 65 66 61 6c |e point.|..(defal|
|00002070| 69 61 73 20 27 62 72 6f | 77 73 65 2d 75 72 6c 2d |ias 'bro|wse-url-|
|00002080| 6d 6f 73 61 69 63 20 23 | 5b 28 75 72 6c 29 20 22 |mosaic #|[(url) "|
|00002090| c0 c1 21 c2 89 1b 1c 1d | c6 0d 21 83 1f 00 8a c7 |..!.....|..!.....|
|000020a0| 0d 21 88 65 62 88 c8 70 | 21 14 c9 c2 21 88 29 5c |.!.eb..p|!...!.)\|
|000020b0| 66 83 52 00 ca 5c 66 cb | 5c 22 cb 55 83 52 00 8a |f.R..\f.|\".U.R..|
|000020c0| c7 cc cd 5c 66 5c 22 21 | 88 ce 20 88 cf 0e 10 d1 |...\f\"!|.. .....|
|000020d0| b1 03 88 d2 20 88 c9 c2 | 21 88 ca 5c 66 0e 13 5c |.... ...|!..\f..\|
|000020e0| 22 88 d4 d5 21 29 82 68 | 00 d4 d6 21 88 d7 d8 d9 |"...!).h|...!....|
|000020f0| c2 0e 1a db 0e 1c 0e 10 | 43 5c 22 25 88 d4 dd 21 |........|C\"%...!|
|00002100| 2b 87 22 20 5b 65 78 70 | 61 6e 64 2d 66 69 6c 65 |+." [exp|and-file|
|00002110| 2d 6e 61 6d 65 20 22 7e | 2f 2e 6d 6f 73 61 69 63 |-name "~|/.mosaic|
|00002120| 70 69 64 22 20 6e 69 6c | 20 70 69 64 62 75 66 20 |pid" nil| pidbuf |
|00002130| 70 69 64 20 70 69 64 66 | 69 6c 65 20 66 69 6c 65 |pid pidf|ile file|
|00002140| 2d 72 65 61 64 61 62 6c | 65 2d 70 20 66 69 6e 64 |-readabl|e-p find|
|00002150| 2d 66 69 6c 65 20 72 65 | 61 64 20 6b 69 6c 6c 2d |-file re|ad kill-|
|00002160| 62 75 66 66 65 72 20 73 | 69 67 6e 61 6c 2d 70 72 |buffer s|ignal-pr|
|00002170| 6f 63 65 73 73 20 30 20 | 66 6f 72 6d 61 74 20 22 |ocess 0 |format "|
|00002180| 2f 74 6d 70 2f 4d 6f 73 | 61 69 63 2e 25 64 22 20 |/tmp/Mos|aic.%d" |
|00002190| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 22 67 6f |erase-bu|ffer "go|
|000021a0| 74 6f 5c 6e 22 20 75 72 | 6c 20 22 5c 6e 22 20 73 |to\n" ur|l "\n" s|
|000021b0| 61 76 65 2d 62 75 66 66 | 65 72 20 62 72 6f 77 73 |ave-buff|er brows|
|000021c0| 65 2d 75 72 6c 2d 75 73 | 72 31 2d 73 69 67 6e 61 |e-url-us|r1-signa|
|000021d0| 6c 20 6d 65 73 73 61 67 | 65 20 22 53 69 67 6e 61 |l messag|e "Signa|
|000021e0| 6c 20 73 65 6e 74 20 74 | 6f 20 4d 6f 73 61 69 63 |l sent t|o Mosaic|
|000021f0| 22 20 22 53 74 61 72 74 | 69 6e 67 20 4d 6f 73 61 |" "Start|ing Mosa|
|00002200| 69 63 2e 2e 2e 22 20 61 | 70 70 6c 79 20 73 74 61 |ic..." a|pply sta|
|00002210| 72 74 2d 70 72 6f 63 65 | 73 73 20 22 78 6d 6f 73 |rt-proce|ss "xmos|
|00002220| 61 69 63 22 20 62 72 6f | 77 73 65 2d 75 72 6c 2d |aic" bro|wse-url-|
|00002230| 6d 6f 73 61 69 63 2d 70 | 72 6f 67 72 61 6d 20 61 |mosaic-p|rogram a|
|00002240| 70 70 65 6e 64 20 62 72 | 6f 77 73 65 2d 75 72 6c |ppend br|owse-url|
|00002250| 2d 6d 6f 73 61 69 63 2d | 61 72 67 75 6d 65 6e 74 |-mosaic-|argument|
|00002260| 73 20 22 53 74 61 72 74 | 69 6e 67 20 4d 6f 73 61 |s "Start|ing Mosa|
|00002270| 69 63 2e 2e 2e 64 6f 6e | 65 22 5d 20 38 20 28 23 |ic...don|e"] 8 (#|
|00002280| 24 20 2e 20 38 32 31 33 | 29 20 28 62 72 6f 77 73 |$ . 8213|) (brows|
|00002290| 65 2d 75 72 6c 2d 69 6e | 74 65 72 61 63 74 69 76 |e-url-in|teractiv|
|000022a0| 65 2d 61 72 67 20 22 4d | 6f 73 61 69 63 20 55 52 |e-arg "M|osaic UR|
|000022b0| 4c 3a 20 22 29 5d 29 0a | 23 40 36 35 34 20 41 73 |L: ")]).|#@654 As|
|000022c0| 6b 20 74 68 65 20 58 4d | 6f 73 61 69 63 20 57 57 |k the XM|osaic WW|
|000022d0| 57 20 62 72 6f 77 73 65 | 72 20 74 6f 20 6c 6f 61 |W browse|r to loa|
|000022e0| 64 20 55 52 4c 2e 0a 44 | 65 66 61 75 6c 74 20 74 |d URL..D|efault t|
|000022f0| 6f 20 74 68 65 20 55 52 | 4c 20 61 72 6f 75 6e 64 |o the UR|L around|
|00002300| 20 6f 72 20 62 65 66 6f | 72 65 20 70 6f 69 6e 74 | or befo|re point|
|00002310| 2e 0a 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |...This |function|
|00002320| 20 6f 6e 6c 79 20 77 6f | 72 6b 73 20 66 6f 72 20 | only wo|rks for |
|00002330| 58 4d 6f 73 61 69 63 20 | 76 65 72 73 69 6f 6e 20 |XMosaic |version |
|00002340| 32 2e 35 20 6f 72 20 6c | 61 74 65 72 2e 20 20 59 |2.5 or l|ater.  Y|
|00002350| 6f 75 20 6d 75 73 74 0a | 73 65 6c 65 63 74 20 60 |ou must.|select `|
|00002360| 43 43 49 27 20 66 72 6f | 6d 20 58 4d 6f 73 61 69 |CCI' fro|m XMosai|
|00002370| 63 27 73 20 46 69 6c 65 | 20 6d 65 6e 75 2c 20 73 |c's File| menu, s|
|00002380| 65 74 20 74 68 65 20 43 | 43 49 20 50 6f 72 74 20 |et the C|CI Port |
|00002390| 41 64 64 72 65 73 73 20 | 74 6f 20 74 68 65 0a 76 |Address |to the.v|
|000023a0| 61 6c 75 65 20 6f 66 20 | 76 61 72 69 61 62 6c 65 |alue of |variable|
|000023b0| 20 60 62 72 6f 77 73 65 | 2d 75 72 6c 2d 43 43 49 | `browse|-url-CCI|
|000023c0| 2d 70 6f 72 74 27 2c 20 | 61 6e 64 20 65 6e 61 62 |-port', |and enab|
|000023d0| 6c 65 20 60 41 63 63 65 | 70 74 20 72 65 71 75 65 |le `Acce|pt reque|
|000023e0| 73 74 73 27 2e 0a 0a 57 | 68 65 6e 20 63 61 6c 6c |sts'...W|hen call|
|000023f0| 65 64 20 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |ed inter|actively|
|00002400| 2c 20 69 66 20 76 61 72 | 69 61 62 6c 65 20 60 62 |, if var|iable `b|
|00002410| 72 6f 77 73 65 2d 75 72 | 6c 2d 6e 65 77 2d 77 69 |rowse-ur|l-new-wi|
|00002420| 6e 64 6f 77 2d 70 27 20 | 69 73 0a 6e 6f 6e 2d 6e |ndow-p' |is.non-n|
|00002430| 69 6c 2c 20 6c 6f 61 64 | 20 74 68 65 20 64 6f 63 |il, load| the doc|
|00002440| 75 6d 65 6e 74 20 69 6e | 20 61 20 6e 65 77 20 62 |ument in| a new b|
|00002450| 72 6f 77 73 65 72 20 77 | 69 6e 64 6f 77 2c 20 6f |rowser w|indow, o|
|00002460| 74 68 65 72 77 69 73 65 | 20 75 73 65 20 61 0a 72 |therwise| use a.r|
|00002470| 61 6e 64 6f 6d 20 65 78 | 69 73 74 69 6e 67 20 6f |andom ex|isting o|
|00002480| 6e 65 2e 20 20 41 20 6e | 6f 6e 2d 6e 69 6c 20 69 |ne.  A n|on-nil i|
|00002490| 6e 74 65 72 61 63 74 69 | 76 65 20 70 72 65 66 69 |nteracti|ve prefi|
|000024a0| 78 20 61 72 67 75 6d 65 | 6e 74 20 72 65 76 65 72 |x argume|nt rever|
|000024b0| 73 65 73 0a 74 68 65 20 | 65 66 66 65 63 74 20 6f |ses.the |effect o|
|000024c0| 66 20 62 72 6f 77 73 65 | 2d 75 72 6c 2d 6e 65 77 |f browse|-url-new|
|000024d0| 2d 77 69 6e 64 6f 77 2d | 70 2e 0a 0a 57 68 65 6e |-window-|p...When|
|000024e0| 20 63 61 6c 6c 65 64 20 | 6e 6f 6e 2d 69 6e 74 65 | called |non-inte|
|000024f0| 72 61 63 74 69 76 65 6c | 79 2c 20 6f 70 74 69 6f |ractivel|y, optio|
|00002500| 6e 61 6c 20 73 65 63 6f | 6e 64 20 61 72 67 75 6d |nal seco|nd argum|
|00002510| 65 6e 74 20 4e 45 57 2d | 57 49 4e 44 4f 57 20 69 |ent NEW-|WINDOW i|
|00002520| 73 0a 75 73 65 64 20 69 | 6e 73 74 65 61 64 20 6f |s.used i|nstead o|
|00002530| 66 20 62 72 6f 77 73 65 | 2d 75 72 6c 2d 6e 65 77 |f browse|-url-new|
|00002540| 2d 77 69 6e 64 6f 77 2d | 70 2e 1f 0a 28 64 65 66 |-window-|p...(def|
|00002550| 61 6c 69 61 73 20 27 62 | 72 6f 77 73 65 2d 75 72 |alias 'b|rowse-ur|
|00002560| 6c 2d 63 63 69 20 23 5b | 28 75 72 6c 20 26 6f 70 |l-cci #[|(url &op|
|00002570| 74 69 6f 6e 61 6c 20 6e | 65 77 2d 77 69 6e 64 6f |tional n|ew-windo|
|00002580| 77 29 20 22 c0 c1 c2 c3 | 5c 66 24 88 c5 c1 c6 0e |w) "....|\f$.....|
|00002590| 07 c8 0e 09 83 16 00 ca | 82 17 00 cb cc b0 05 5c |........|.......\|
|000025a0| 22 88 c5 c1 cd 5c 22 88 | ce c1 21 87 22 20 5b 6f |"....\".|..!." [o|
|000025b0| 70 65 6e 2d 6e 65 74 77 | 6f 72 6b 2d 73 74 72 65 |pen-netw|ork-stre|
|000025c0| 61 6d 20 22 62 72 6f 77 | 73 65 2d 75 72 6c 22 20 |am "brow|se-url" |
|000025d0| 22 20 2a 62 72 6f 77 73 | 65 2d 75 72 6c 2a 22 20 |" *brows|e-url*" |
|000025e0| 22 6c 6f 63 61 6c 68 6f | 73 74 22 20 62 72 6f 77 |"localho|st" brow|
|000025f0| 73 65 2d 75 72 6c 2d 43 | 43 49 2d 70 6f 72 74 20 |se-url-C|CI-port |
|00002600| 70 72 6f 63 65 73 73 2d | 73 65 6e 64 2d 73 74 72 |process-|send-str|
|00002610| 69 6e 67 20 22 67 65 74 | 20 75 72 6c 20 28 22 20 |ing "get| url (" |
|00002620| 75 72 6c 20 22 29 20 6f | 75 74 70 75 74 20 22 20 |url ") o|utput " |
|00002630| 6e 65 77 2d 77 69 6e 64 | 6f 77 20 22 6e 65 77 22 |new-wind|ow "new"|
|00002640| 20 22 63 75 72 72 65 6e | 74 22 20 22 0d 5c 6e 22 | "curren|t" ".\n"|
|00002650| 20 22 64 69 73 63 6f 6e | 6e 65 63 74 0d 5c 6e 22 | "discon|nect.\n"|
|00002660| 20 64 65 6c 65 74 65 2d | 70 72 6f 63 65 73 73 5d | delete-|process]|
|00002670| 20 37 20 28 23 24 20 2e | 20 38 38 39 34 29 20 28 | 7 (#$ .| 8894) (|
|00002680| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 21 0b |byte-cod|e "...!.|
|00002690| 3f 5c 66 3f 3d 3f 43 5c | 22 87 22 20 5b 61 70 70 |?\f?=?C\|"." [app|
|000026a0| 65 6e 64 20 62 72 6f 77 | 73 65 2d 75 72 6c 2d 69 |end brow|se-url-i|
|000026b0| 6e 74 65 72 61 63 74 69 | 76 65 2d 61 72 67 20 22 |nteracti|ve-arg "|
|000026c0| 4d 6f 73 61 69 63 20 55 | 52 4c 3a 20 22 20 62 72 |Mosaic U|RL: " br|
|000026d0| 6f 77 73 65 2d 75 72 6c | 2d 6e 65 77 2d 77 69 6e |owse-url|-new-win|
|000026e0| 64 6f 77 2d 70 20 63 75 | 72 72 65 6e 74 2d 70 72 |dow-p cu|rrent-pr|
|000026f0| 65 66 69 78 2d 61 72 67 | 5d 20 34 29 5d 29 0a 23 |efix-arg|] 4)]).#|
|00002700| 40 38 37 20 41 73 6b 20 | 74 68 65 20 49 58 49 4d |@87 Ask |the IXIM|
|00002710| 6f 73 61 69 63 20 57 57 | 57 20 62 72 6f 77 73 65 |osaic WW|W browse|
|00002720| 72 20 74 6f 20 6c 6f 61 | 64 20 55 52 4c 2e 0a 44 |r to loa|d URL..D|
|00002730| 65 66 61 75 6c 74 20 74 | 6f 20 74 68 65 20 55 52 |efault t|o the UR|
|00002740| 4c 20 61 72 6f 75 6e 64 | 20 6f 72 20 62 65 66 6f |L around| or befo|
|00002750| 72 65 20 70 6f 69 6e 74 | 2e 1f 0a 28 64 65 66 61 |re point|...(defa|
|00002760| 6c 69 61 73 20 27 62 72 | 6f 77 73 65 2d 75 72 6c |lias 'br|owse-url|
|00002770| 2d 69 78 69 6d 6f 73 61 | 69 63 20 23 5b 28 75 72 |-iximosa|ic #[(ur|
|00002780| 6c 29 20 22 c0 c1 c2 c1 | c3 5c 66 25 87 22 20 5b |l) "....|.\f%." [|
|00002790| 73 74 61 72 74 2d 70 72 | 6f 63 65 73 73 20 22 74 |start-pr|ocess "t|
|000027a0| 65 6c 6c 77 33 62 22 20 | 6e 69 6c 20 22 2d 73 65 |ellw3b" |nil "-se|
|000027b0| 72 76 69 63 65 20 57 57 | 57 5f 42 52 4f 57 53 45 |rvice WW|W_BROWSE|
|000027c0| 52 20 69 78 69 5f 73 68 | 6f 77 75 72 6c 20 22 20 |R ixi_sh|owurl " |
|000027d0| 75 72 6c 5d 20 36 20 28 | 23 24 20 2e 20 39 39 38 |url] 6 (|#$ . 998|
|000027e0| 38 29 20 28 62 72 6f 77 | 73 65 2d 75 72 6c 2d 69 |8) (brow|se-url-i|
|000027f0| 6e 74 65 72 61 63 74 69 | 76 65 2d 61 72 67 20 22 |nteracti|ve-arg "|
|00002800| 49 58 49 20 4d 6f 73 61 | 69 63 20 55 52 4c 3a 20 |IXI Mosa|ic URL: |
|00002810| 22 29 5d 29 0a 23 40 38 | 30 20 41 73 6b 20 74 68 |")]).#@8|0 Ask th|
|00002820| 65 20 77 33 20 57 57 57 | 20 62 72 6f 77 73 65 72 |e w3 WWW| browser|
|00002830| 20 74 6f 20 6c 6f 61 64 | 20 55 52 4c 2e 0a 44 65 | to load| URL..De|
|00002840| 66 61 75 6c 74 20 74 6f | 20 74 68 65 20 55 52 4c |fault to| the URL|
|00002850| 20 61 72 6f 75 6e 64 20 | 6f 72 20 62 65 66 6f 72 | around |or befor|
|00002860| 65 20 70 6f 69 6e 74 2e | 1f 0a 28 64 65 66 61 6c |e point.|..(defal|
|00002870| 69 61 73 20 27 62 72 6f | 77 73 65 2d 75 72 6c 2d |ias 'bro|wse-url-|
|00002880| 77 33 20 23 5b 28 75 72 | 6c 29 20 22 c0 09 21 87 |w3 #[(ur|l) "..!.|
|00002890| 22 20 5b 77 33 2d 66 65 | 74 63 68 20 75 72 6c 5d |" [w3-fe|tch url]|
|000028a0| 20 32 20 28 23 24 20 2e | 20 31 30 32 36 36 29 20 | 2 (#$ .| 10266) |
|000028b0| 28 62 72 6f 77 73 65 2d | 75 72 6c 2d 69 6e 74 65 |(browse-|url-inte|
|000028c0| 72 61 63 74 69 76 65 2d | 61 72 67 20 22 57 33 20 |ractive-|arg "W3 |
|000028d0| 55 52 4c 3a 20 22 29 5d | 29 0a 23 40 31 30 36 20 |URL: ")]|).#@106 |
|000028e0| 44 65 63 69 64 65 20 77 | 68 69 63 68 20 62 72 6f |Decide w|hich bro|
|000028f0| 77 73 65 72 20 74 6f 20 | 75 73 65 2c 20 74 68 65 |wser to |use, the|
|00002900| 6e 20 69 6e 76 6f 6b 65 | 20 69 74 2e 0a 54 68 69 |n invoke| it..Thi|
|00002910| 73 20 69 73 20 74 68 65 | 20 64 65 66 61 75 6c 74 |s is the| default|
|00002920| 20 76 61 6c 75 65 20 6f | 66 20 60 62 72 6f 77 73 | value o|f `brows|
|00002930| 65 2d 75 72 6c 2d 62 72 | 6f 77 73 65 72 2d 66 75 |e-url-br|owser-fu|
|00002940| 6e 63 74 69 6f 6e 27 2e | 1f 0a 28 64 65 66 61 6c |nction'.|..(defal|
|00002950| 69 61 73 20 27 62 72 6f | 77 73 65 2d 75 72 6c 2d |ias 'bro|wse-url-|
|00002960| 63 68 6f 6f 73 65 2d 62 | 72 6f 77 73 65 72 20 23 |choose-b|rowser #|
|00002970| 5b 28 61 72 67 75 6d 65 | 6e 74 29 20 22 c0 c1 21 |[(argume|nt) "..!|
|00002980| 83 0b 00 c2 13 82 0d 00 | c4 13 0b 0d 21 87 22 20 |........|....!." |
|00002990| 5b 66 62 6f 75 6e 64 70 | 20 77 33 2d 66 65 74 63 |[fboundp| w3-fetc|
|000029a0| 68 20 62 72 6f 77 73 65 | 2d 75 72 6c 2d 77 33 20 |h browse|-url-w3 |
|000029b0| 62 72 6f 77 73 65 2d 75 | 72 6c 2d 62 72 6f 77 73 |browse-u|rl-brows|
|000029c0| 65 72 2d 66 75 6e 63 74 | 69 6f 6e 20 62 72 6f 77 |er-funct|ion brow|
|000029d0| 73 65 2d 75 72 6c 2d 6e | 65 74 73 63 61 70 65 20 |se-url-n|etscape |
|000029e0| 61 72 67 75 6d 65 6e 74 | 5d 20 32 20 28 23 24 20 |argument|] 2 (#$ |
|000029f0| 2e 20 31 30 34 36 34 29 | 5d 29 0a 28 70 72 6f 76 |. 10464)|]).(prov|
|00002a00| 69 64 65 20 28 71 75 6f | 74 65 20 62 72 6f 77 73 |ide (quo|te brows|
|00002a10| 65 2d 75 72 6c 29 29 0a |                         |e-url)).|        |
+--------+-------------------------+-------------------------+--------+--------+